#!/usr/bin/perl -w
use strict;
use Getopt::Long;

#88888888888888888888888888888888888888888888888888888888888888888888888888888888

#	Usage

#88888888888888888888888888888888888888888888888888888888888888888888888888888888

system("map_cdna_onto_aa -p prot.fa -c cdna.fa -P mapped.prot.fa -C mapped.cdna.fa  -i mapped.introns -e mapped.errors");
system("map_cdna_onto_aa -p prot.fa -c cdna.fa -P mapped2.prot.fa -C mapped2.cdna.fa  -i mapped2.introns -e mapped2.errors -x 'X' ");
system("map_cdna_onto_aa -p prot.fa -c cdna.fa -P mapped3.prot.fa -C mapped3.cdna.fa  -i mapped3.introns -e mapped3.errors -m 1");
